1000 MM=0
1010 MM = MM+1:DD$="":GOSUB 1120
1020 IFDD$=NN$THEN END
1030 PRINT MID$(DD$,4,16):INPUTAA$
1040 IF AA$="E"THEN END
1060 HH$=LEFT$(DD$,1)
1070 HH$=CHR$(ASC(HH$)OR2^7)
1080 DD$=HH$+RIGHT$(DD$,29)
1090 GOSUB 1330
1100 GOTO 1010
1110 END
1120 :
1130 :
1140 :
1150 OPEN15,8,15:OPEN8,8,8,"#"
1160 NN$="":FORI=1TO39:NN$=NN$+CHR$(0):NEXTI
1170 XX=INT((MM-1)/8)
1180 PRINT#15,"U1 8 0 18 0"
1190 FORZZ=1TOXX+1
1200 PRINT#15,"B-P 8 0"
1210 GET#8,TT$:TT=ASC(TT$+CHR$(0))
1220 GET#8,SS$:SS=ASC(SS$+CHR$(0))
1230 IF TT=0THENDD$=NN$:GOTO1310
1240 PRINT#15,"U1 8 0";TT;SS
1250 NEXTZZ
1260 PP=MM-(XX*8):PP=(PP-1)*32+2
1270 PRINT#15,"B-P 8";PP
1280 FORZZ=1TO30:GET#8,ZZ$
1290 IFZZ$=""  THEN ZZ$=CHR$(0)
1300 DD$=DD$+ZZ$:NEXTZZ
1310 CLOSE8:CLOSE15
1320 RETURN
1330 :
1340 :
1350 :
1360 OPEN15,8,15:OPEN8,8,8,"#"
1370 XX=INT((MM-1)/8)
1380 PRINT#15,"U1 8 0 18 0"
1390 FORZZ=1TOXX+1
1400 PRINT#15,"B-P 8 0"
1410 GET#8,T$:TT=ASC(T$+CHR$(0))
1420 GET#8,S$:SS=ASC(S$+CHR$(0))
1430 IFTT=0THEN 1500
1440 PRINT#15,"U1 8 0";TT;SS
1450 NEXTZZ
1460 PP=MM-(XX*8):PP=(PP-1)*32+2
1470 PRINT#15,"B-P 8";PP
1480 PRINT#8,DD$
1490 PRINT#15,"U2 8 0";TT;SS
1500 CLOSE8:CLOSE15
1510 RETURN